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| BASSS$CB je~ze0= 138% 90:06:00 VAX-11 Bliss-32 V4.0-742 Page 1 
| 14-Sep-1984 11:54:44 DISKSVMSMASTER: CBASRTL.SRCIBASCB.832;1 (1) 
i: MODULE BASSSCB ( ' Push, pop Al pa, and deallocate LUB/ISB/RAB 

i File: BASCB.B 


we = '1-020' 


BEGIN 
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i COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
t@ ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
NCLUSION OF C a 
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t® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
>» oopokat iin NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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ie TRANSFERRED. * 
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® 
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++ 
FACILITY: BASIC Language support Library 
ABSTRACT: 
This module interfaces to OTSS$SCCB from BASIC to allocate, 
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' 
i 
i 
i 
1 
35 4 deallocate, push and pop the LUB/ISB/RAB data structure, which 
36 o288 is central to the I/0 system. 
$s sit : ENVIRONMENT: User mode, AST level or not or mixed 
re Bed : AUTHOR: Thomas N. Hastings, CREATION DATE: 01-June-77 
rs | 004 ' MODIFIED BY: 
4 004 ' 
44 044 ‘ Thomas N. Hastings, 01-June-77: VERSION 01 
45 045 ! Q1 - original 
46 0046 ' 938 = Set RMS RABSV_UIF bit TNH 19-SEP-77 
47 0047 ! Q- = Set RMS RABSV_TPT bit (truncate on sequent tal $PUT not at EOF TNH 24-SEP-77 
48 0048 ! Q- - Use FORSS$SIG_RO_LUB since no LUB. TNH 24-SEP-77 
49 0049 ! Q- - Set RAB bits for read-ahead, write-behind, tocate mode JMT 21-OCT-77 
50 050 1 | 0-31 = Use FORSK_abcmnoxyz as EXTERNAL LITERALS.” TNH 27-0ct-7 
2) 03 ! Q- § - Made second arg options -__ TNH 9-Nov-7 
¢ 26 ! Q- - Use OTSS_FATINTERR. TNH 01-Dec-77 
5 05 ' 0-34 = Clear FAB after call to LIBSGET_VM. TNH 9-Dec-77 
2 054 ! 4 5 = Call FORSSIG_FATINT. TNH 50-Dec- 
5 055 ! 0-36 = Have CB_POP Signal FATINT if LUB not active; . 
28 26 : Add routine CB_CND_POP to conditionally pop if LUB active. 
5 5 ‘ otherwise NO-OP (OTS exit handler calls this). JMT 10-Jan-78 
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1-30 ~penn 1986 90:96:09 VAX-11 Bliss-32 V4.0-742 
14-Sep-1984 54:44 DISKSVMSMASTER: [BASRTL. SRCIBASCB. B32. 79° 
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a8 28 -37 = Remove aGND POP: I didn’ reat) want it, anyway... JMT 11-Jan-78 
9 -37 = Global register COB. JMT Apr 8 

60 060 -39 = Change to STARLET Library. DGP 20-Apr-78 

61 061 -40 = Change REQUIRE files for VAX system build. DGP 28-Apr-78 

6¢ 06 -41 = Change STARLET to micetagus to, void conflicts. Dep” 1-May-78 
6 06 -42 = Make JSB Linkage. TNH 1 ds ad 

64 064 -46 = Use FORSSGET_VA with ney fon slong gn 2nd d_9f9. TNH 21-May-78 

65 065 b-¢ - Remove setting ISB to -1 yee 

98 06 -48 = Add san ty check of data bas es TNH Q=Jun -78 

6 006 0-49 = Add call to FORSSSIG_DATCOR. TNH 10-June-78 

68 0068 0-50 = Add FORSSCB_GET entry for non-shared ccess © OTSS$A_CUR_LUB. TNH 2-Aug-78 
69 4 9 b-2 - Fix AST re-entrant t Ae yl hole TNH 9-Aug-7 

70 070 - - Change file name to FORCB.B “and chan e the names of the 

71 071 REQUIRE files similarly. JBS 14-NOV- 

7 07 1-001 = Update version number and . yrignt t pot ise: JBS 16-NOV-78 

7 007 ae = Change LUBSB LUN to LUBSW_LU BS 05-DEC- 

74 0074 1-003 = Change REQU UIRE file names from dh to OTS... JBS 07-DEC-78 
75 0075 1-004 = Include TNH's version voice uses a bit table to provide 

76 00 AST rengntrenty JBS 1 -7 

77 007 1-005 - Remove ts ge + ovenac, eo needed. JBS 11-DEC-78 

78 007 1-006 - 2 . Stes 3 B_NEXT, rg | 26's the next LUN for the CLOSE Loop 
Bite 
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° 1 
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oe 1 
; 1 
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3 1 
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A tee ga “| FORSSES. NEXT and make OTSS$$AA_LUB_TAB 
OWN. JBS 18-DEC-78 

1-008 - Change file and module name to OTSCB and add specialized 
Ms c ry gboints, This is in preparation for recursive 


1/0. 
Add bassscB” CLEANUP. JBS 29-DE 


85 0085 1-009 - -78 

86 0086 1-010 = Add recursive 1/0 for BASIC. Os 08-JAN-1979 

87 0 1-011 = Divide into three flies: OTSCCB, BASCB and FORCB. This file, 

88 0088 BASCB, retains the BASIC code. 188 09-JAN-197 

89 0089 1318 - Chan e ISBSB_STTM grat to ispsu STTM_STAT. JBS 20-JAN-1979 
0090 1-013 = Don't clear ISBSWISTTM_STAT -- Tet OTSCCB do it. JBS 23-JAN-1979 

91 0091 1-014 = Change Linkage for sOTSSPUSH. CCB to JSB_CB_PUSH and for 

92 009 OTSSPOP_CCB to JSB_CB_POP.” JBS 25-JAN- $999 

93 009 1-015 = Put two aller signS on non-user entry ai BE JBS 26-JAN-1979 

94 0094 1-016 - Change OTSCCB. Red to OTSCCBREQ.REQ so as not to_ conflict with 

95 0095 OTSC B. B32 at system build time. SBL 10-May-197 


1-017 - Check that the. (in N is not owned by a foreign Language. 
1-018 - Interface to the new organization of FORSSCB. JBS 20-AUG-1979 
i CON that turned up only with the shared 


~AUG-T 
1-020 - Add BASSECB EET. IBS 23-AUG-1979 
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18 32 
14-Sep-1984 4244 DISKSVMS R 


V4.0-742 
:CBASRTL.S 


l 
M 
' 


| SWITCHES: 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
' 


LINKAGES: 


REQUIRE 'RTLIN:OTSLNK'; 
! 


! TABLE OF CONTENTS: 


Define LINKAGEs 


FORWARD ROUTINE 
BASS$S$CB_PUSH : JSB_CB_PUSH NOVALUE, 
BASS$CB_POP : JSB_CB_POP NOVALUE, 
BASSSCB GET : JSB°CB°GET NOVALUE, 
BASSSNERT_LUN : NOVACUE; 


Pop LUB/ISB/RAB - end of each 1/0 statement 
Get LUB/ISB/RAB (non-shr code) 
Get next BASIC LUN 


INCLUDE FILES: 


REQUIRE "RTLML:OTSLUB’; 
REQUIRE "RTLIN:RTLPSECT’; 
REQUIRE 'RTLIN:OTSCCBREQ'; 
LIBRARY ‘RTLSTARLE'; 


get length of LUB 

Define DECLARE_PSECTs macro 

Define return codes for OTS$$PUSH_CCB 
STARLET Library for macros and symbols 


MACROS: 
NONE 
EQUATED SYMBOLS: 
NONE 
PSECT DECLARATIONS: 
DECLARE_PSECTS (BAS); 
! GLOBAL STORAGE: 
NONE 
| EXTERNAL REFERENCES: 


declare PSECTs for BASS facility 


EXTERNAL ROUTINE 
BASS$STOP : NOVALUE, 
BAS$$STOP_IO0 : NOVALUE, 


Signal a fatal BASIC 
Signal a fatal BASIC 


~ 5 
o7 

°o 
on 


rror 


= P 
TL-SRCIBASCB.B3204°" (23 


Allocate or find LUB/ISB/RAB = beg of each I/0 statment 


Be Se Oe Be Oe Se oe Oe Oe Oe Be Be Oe Oe Oe Oe Se Be Be Be Se Oe Se Se Se Se Ge Se Se Se Se OH Se Ss Ge Ge Ge 
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Land 
i 


1 68 , 2 LIBSSTOP : NOVALUE ! Signal a fatal error 

1 921 1 OTSS$$SPUSH_CCB : JS@ CB PUSH i Load register CC 

165 09 : OTSSSPOP_CCB : JSB_CB_POP NOVALUE; i Done with register CCB 
169 +4 4 1 !¢ 

168 925 1! The following cell is set by OTSSSPUSH_CCB and OTSSSPOP_C(CB. It is defined 
169 09 $ 1 ! here because BASSS$CB_GET returns it. 

170 09 1 ie 

171 0928 1 

1% 0929 1 EXTERNAL 

17 0930 1 OTS$S$A_CUR_LUB; 

176 O3e, 1 

175 9 ; 1 t+ : 

176 0935 1! The a bits are used to segrepete the logical unit numbers 

177 0934 1 ! between the Languages. GASIC has a bit which, when set, prevents 

178 0935 1! any other Language from using the LUN. 

179 09 5 te 

180 0937 #1 

181 0938 1 EXTERNAL 

186 0939 1 OTS$$V_LUN_OWNR : BLOCKVECTOR ! 

18 0940 1 C-CUBSR_ILUN_MIN + LUBSK_LUN.MAX +1,  ! 

184 0941 1 ((LOBS* CANG_MAX + ZBPUNTT)/ZBPUNII), BYTE] ! 

+ 3 ze : VOLATILE FIELD (OTSS$SSV_OWNR_FLD); 

187 0944 1 EXTERNAL LITERAL 

188 0945 1 OTSS_INTDATCOR : UNSIGNED (%BPVAL), 

189 0946 1 OTSS_FATINTERR : UNSIGNED (%BPVAL); 

190 0947 1 

191 0948 1 !+ : 

192 0949 1! The following are the BASIC error codes used in this module. 

193 0950 1 !- 

194 0951 +1 

195 0952 1 EXTERNAL LITERAL 

196 0953 «1 BASS$SK_ILLIO CHA : UNSIGNED (8), ! Illegal 1/0 channel 
197 0954 1 | BASSKIMAXMEMEXC : UNSIGNED (8), ! Maximum nenory exceeded 
in Rees : BASSK_ILLILLACC : UNSIGNED (8); ! Illegal or illogical access 
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1-020 1228687138 9: 4:44 DISKSVMSMAS TER: [BASRTL. SRCIJBASCB.B32:1> (3) 
01 o3ee 1 GLOBAL ROUTINE BASS$S$SCB_PUSH ( ! Allocate or find LUB/ISB/RAB - beg of each 1/0 statement 
og 958 1 LOGICAL UNIT, ' Logical unit no. (by-value) 
0 0959 #1 LUN_MIN ! Minimum logical unit number (by-value) 
04 0960 1 : JSB_CB_PUSH NOVALUE = 
05 0961 1 
08 0962 1 !4+ 
0 0965 1 ! FUNCTIONAL DESCRIPTION: 
08 0964 1! 
09 0965 1! BASSSCB_PUSH checks for legal logical UNIT number 
10 R08 =| which varyies depending on whether this is OPEN or 
11 0967 1! default open. If logical_unit already has 
\ 0968 1! @ LUB/ISB/RAB allocated, only part of the per 1/0 statement part 
2) 0969 1! of LUB/ISB/RAB is cleared, namely just the status bits in ISB. 
214 0970 1! Otherwise virtual memory is allocated BAS this logical_unit 
215 0971 1! and the entire block is initialized to 0. Then the allocated address 
216 pore 1% is remembered in OWN table OTSS$S$A_LUB_TAB indexed by — 
AN 0975 1! logical_unit. The RAB is initial?zed to constants which 
$18 bare : do not change during execution. 
220 0976 1! If an 1/0 statement on another unit is already in progress, 
221 0977 1! push it down by storing the address 
222 0978 1! in the new current LUB/ISB/RAB. Finally set GLOBAL OTSS$A_CUR_LUB 
225 0979 1! to the address of the new current LUB/ISB/RAB. 
224 0980 1! 
$$? 0981 1 ! CALLING SEQUENCE: 
226 0982 1! ; : . 
227 0983 1! JSB BASSSCB_PUSH (R2=logical_unit.rl.v C, RU=lun_min.rl.vJ) 
228 0984 1! 
229 0985 1 ! FORMAL PARAMETERS: 
230 0986 1 | : 
231 0987 1! LOGICAL_UNIT.rl.v Value of Cagreas unit for which LUB/ISB/RAB is desired (sianed) 
$3¢ 0988 1! mer be negative for channel 0 and. : 
23 0989 1! LUN_MIN.rl.v Value of minimum Legal logical unit number (signed) 
234 0990 1! Since in a register, must be present. 
235 0991 1! 
236 0992 1 ! IMPLICIT INPUTS: 
237 0993 1! : 3 
238 0994 1! OTS$$AA_LUB_TABLlogical_unit] Adr. of LUB/ISB/RAB or 0 for 
239 0995 1! this unit 
240 0996 1! 
241 0997 1 ! IMPLICIT OUTPUTS: 
242 0998 1! ; ; : 
245 0999 1! CCB : : Base pointer set to adr. of LUB/ISB/RAB BAS logical_unit. 
c4% 1000 1! OTS$SAA_LUB_TABLlogical_unit] Adr. of LUB/ISB/RAB BAS logical_unit 
245 1001 1: LUB$W_LON signed logical unit number 
246 1002 1: RABS$B_BID 
247 1003 1! RABS$B_BLN 
248 1004 1: RABSV_UIF 1 
249 1005 1! RABSV~TPT 1 
250 1006 1! RABS$SV_RAH 1 
251 1007 1! RABS$V_WBH 1 
252 1008 1! RABSV_LOC 1 
253 1009 1! 
254 1010 1 =! ROUTINE VALUE: 
255 1011 1! 
256 a 1! None 
257 101 :? 
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eB ioe 1! SIDE EFFECTS: 
9 1015 1! 
60 128 1! Allocates virtual ay | if needed. 
61 1017 1! Signals fatal error 46 ("‘lilegal 1/0 channel’) if LOGICAL_UNIT 
$6 9 = is out of range, or 126 (‘Maximum memory exceeded’’) if 
6 1019 1! LIBSGET_VM fails. 
64 1020 1 !-- 
265 1021 1 
$06 10 $ BEGIN 
67 19s 
268 1024 EXTERNAL REGISTER 
$68 1025 CCB : REF BLOCK C, BYTE); 
70 10 $ 
44 10 '¢ 
% 1028 ! Check range of logical_unit. If out of range, 
$} 1966 ! give error Illegal I/0 channel. 
sre 108) 5 
ore 1038 IF ((.LOGICAL_UNIT GTR LUBSK_LUN_MAX) OR (.LOGICAL_UNIT LSS .LUN_MIN)) THEN BASS$SSTOP (BAS$K_ILLIO_CHA); 
e78 1034 '¢ 
79 1035 ! Make sure we own this LUN 
280 1036 § te 
334 ioe OTSS$V_LUN_OWNR C.LOGICAL_UNIT = LUBSK_ILUN_MIN, OTSS$S$V_OWNR_BAS] = 1; 
2835 1039 § IF (.OTSS$V_LUN_OWNR C.LOGICAL_UNIT - LUBSK_ILUN_MIN, OTSS$S$V_OWNR] NEQ OTSS$M_OWNR_BAS) 
284 1040 ¢ THEN 
285 1041 BEGIN 
286 H ok 3 OTS$$V_LUN_OWNR C.LOGICAL_UNIT - LUBSK_ILUN_MIN, OTSS$$V_OWNR_BAS] = 0; 
287 1043 3 BASSS$STOP TBASSK_ILLILLACC); 
288 1044 2 END; ; 
289 1045 § 
290 1046 '¢ : 
291 1047 § ! Call the Language-independent routine to fetch the value of CCB 
$36 1048 ! corresponding to this LUN. It will allocate space for the CCB 
93 1049 2 ! if required, and push down an active ISB if required. 
395 1081 3 
$36 1052 2 CASE OTS$$PUSH_CCB (.LOGICAL_UNIT) FROM OTS$K_PUSH_MIN TO OTSSK_PUSH_MAX OF 
297 1053 2 SFT 
298 1054 2 
$44 1922 2 COTSSK_PUSH_OK, OTSS$K_PUSH_ACT] : 
01 1057 ' Register CCB was loaded successfully. 
Oe 1058 !- 
0 1059 BEGIN 
Spe 1060 '¢ ‘ : Dead . 
05 1061 ' Do the sanity checks on the CCB, since it is not protected from a wild 
306 106¢ ! user program. 
So 
309 1065 4 IF ((.CCB CLUBSW_LUN] NEQ .LOGICAL_UNIT) OR (.CCB CRAB$B_BID] NEQU RABSC_BID)) 
10 1066 3 THEN 
11 1067 4 BEGIN 
\¢ 1068 4 LIBSSTOP (OTS$_INTDATCOR); 
1 1069 4 RETURN; 
14 1070 3 END; 


Be Oe Be Be ee Be Oe Be Oe Be Se Se Oe Se Ge Fe Se Gy Se Se Se Se Se SH SH Se Se ws Se Se Ge Oe Ge Se Ge Se Ge ey Be Se Ge Ge Be Be Se Se Se Se Se Ge Se Se Ge Se Se Seas 


Be Ge Be Be Se Se Se Ge Ge Se Ge Se Se Se Ge Ge Se Se ee Ge Se Se Se Fe Se Se Se Ge Se Se Se Se Se Se Ge Se Se Ge Se Se Se Se Se Ge Ge See 


— 1 
pASssce 1g~3e~ 1386 90:06:09 VAX-11 Bliss=-32 V4.0-742 Page 7 
20 14-Sep-1984 11:54:44 DISKSVMSMASTER:CBASRTL.SRCJBASCB.B832;1 (3) 
: 32 1973 END 
13 1078 
18 1074 COTSSK_PUSH_FAIL] : 
19 1075 '¢ 
20 1978 : The attempt to get space for the LUB/ISB/RAB failed. Signal an 
21 107 ! “out of storage” error. 
$§ 1978 le 
rd 107 BEGIN 
24 1080 BASSSSTOP (BASSK_MAXMEMEXC); 
5 1081 RETURN; 
$ 10e¢ END; 
10 
28 1084 COUTRANGE] : 
$3 1085 te 
° oes Something serious has gone wrong with PUSH_CCB. 
3 1088 BEGIN 
3 1089 LIBSSTOP (OTSS$_FATINTERR); 
334 1090 3 RETURN; 
35 1091 2 END; 
36 109 TES; 
37 109 
$55 1094 to 
39 1095 ! Make sure the LUN is not owned by a foreign language. 
qo BBR BE 
342 1098 2 CASE .CCB CLUB$B_LANGUAGE] FROM LUBSK_LANG_MIN TO LUBSK_LANG_MAX OF 
343 1099 2 SET 
344 1100 2 
345 1101 é CLUBSK_LANG_NONE, LUBSK_LANG_BAS] : 
346 1408 BEGIN 
347 1103 3 
348 1104 2 END; 
349 1105 2 
350 1106 CINRANGE, OUTRANGE) : 
351 1107 
352 1108 BASS$STOP_IO (BASSK_ILLILLACC); 
353 1109 3 RETURN; 
354 1110 2 END; 
355 1111 2 TES; 
356 Wiig 2 
357 111 2 i+ 
$05 1114 § ' ALL is OK, return with register CCB loaded. 
59 1115 le 
360 11146 2 RETURN; 
361 1117 «1 END; ‘End of BAS$$CB_PUSH 
-TITLE BASS$CB 
IDENT \1-020\ 
-EXTRN BASSSSTOP, BASSSSTOP_IO 
-EXTRN LIBSSTOP, OTSS$PUSH CCB 
-EXTRN OTSS$SPOP_CCB, OTSS$$A_CUR_LUB 
-EXTRN OTSS$$V_LON_OWNR 
-EXTRN OTSS$_INTDATCOR, OTSS_FATINTERR 
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~EXTRN BASSK_ILLIO_CHA 
«EXTRN BASSK_MAXMEME XC 
eEXTRN BASSK-ILLILLACC 


-PSECT _BASSCODE,NOWRT, SHR, PIC,2 


00000077 &F 52 D1 00000 BASS$$CB_PUSH:: 
CMPL  - LOGICAL_UNIT, #119 : 1032 
5 14 00007 BGTR : 
50 2 D1 00009 CMPL OGICAL_UNIT, LUN_MIN : 
0B 18 0000C BGEG $ : 
7E 006 a 9A 90005 1$: MOVZBL M#BAS$K_ILLIO_CHA, -(SP) : 
000000006 00 1 B 0001 CALLS #1, BASSS : 
50 0000000060042 3 00019 2$: MOVAB or §s8y LUN_OWNR+8CLOGICAL_UNITJ, RO : 1037 
60 02 88 00021 B1SB2 (RO) ; 
02 60 91 00024 CMPB (hb): + 1039 
0€ 13 00027 EQL : 
60 02 BA 00029 BICB2 #2, (RO) + 1042 
7E 00G 8F 9A 0002C MOVZBL jshsse {LL TLLACC, -(SP) 3; 1043 
000000006 00 01 FB 00030 CALLS #1, BAS$S$STO : 
000000006 00 16 00037 3$: JSB OTS$$PUSH (ce > 1052 
02 01 50 CF 0003D CASEL RO, “", #2 3 
0029 000E 000€ 00041 4$ WORD 38° 4s. : 
8$-4$" : 
000000006 8F DD 00047 PUSHL #OTS$_FATINTERR > 1089 
13 11 0004D BRB ; 
52 (6 AB 10 00 EC O004F 5$: CMPV «#0, -«#16, -58(CCB), LOGICAL_UNIT : 1065 
05 12 00055 BNEQ § : 
01 6B 91 00057 CMPB ss (CCB), #1 : 
1A 13 0005A BEQL «69S F 
00000000G 8F DD OO0SC 6$: PUSHL ~ ther eH ha ; 1068 
000000006 00 01 FB 00062 7$: CALLS , LIB$STOP ; 
05 00069 RSB + 1067 
7E 00G 8F 9A OQOD6A 8S: MOVZBL — a", -(SP) : 1080 
000000006 00 01 FB O006E CALLS . BASSSSTO ; 
05 00075 RSB : 1079 
02 00 D8 AB 8&F 00076 9S: CASEB -40(CCB), #0, #2 : 1098 
0006 0011 0011 00078 108: <WORD  12$-10$,- ; 
15198 7 
7E 00G 8F 9A 00081 11$:  MOVZBL HBASSK ILLILLACC, -(SP) : 1108 
000000006 00 01 FB 00085 CALLS : BASSSS TOP_IO ; 
05 0008C 12$: RSB : 1117 


_; Routine Size: 141 bytes, | Routine Base: _BASSCODE + 0000 


s 362 1118 1 


1 
BAS$$(B 18-5 Sep-1984 t 99: 4:00 VAX-11 Bliss-32 V4.0-742 9 
1-020 14-Sep-1984 4:44 DISKSVMSMASTER: CBASRTL. SRC IJBASCB. B3204 © a) 


GLOBAL ROUTINE BAS$$CB_POP ! Pop current LUB/ISB/RAB = end of 1/0 statement 
: JSB_CB_POP NOVALOE = 
+ 
FUNCTIONAL DESCRIPTION: 
BASS$CB_POP pops the curents LUB/ISB/RAB and restores the 
previous pushed doen LUB/ISB/RAB, if any (usually none). 
lags old current LUB/ISB/RAB as no longer having as active 1/0 statement 
CALLING SEQUENCE: 
JSB BASSSCB_POP () 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
CCB Adr. of current LUB/ISB/RAB 
IMPLICIT OUTPUTS: 
ccB Set to 0 (to catch attempt to reference after a pop). 
LUBSV_IO_ACTIVE Clear 1/0 active bit to indicate 
that this logical unit no longer has 
an 1/0 statement in progress 


COMPLETION CODES: 
RETURN VALUE: 


NONE 

SIDE EFFECTS: 
STEN: entire 1/0 — to another logical unit or none at all 
$1G STOPs Internal Error if LUN was not active. 

BEGIN 


ane 7% REGISTER 
CCB : REF BLOCK C, BYTE]; 


LOCAL 
LOGICAL_UNIT; 


LOGICAL_UNIT = .CCB CLUB$W_LUN); 


'¢ 
i anf old current LUB/ISB/RAB as no longer having 
i an 1/0 statement in Ug ty 

i If LUB was not acti hen signal OTS$_INTDATCOR (INTERNAL DATA 
a CORRUPTED IN RUN-TIME LIBRARY). 


ee ee ee ee eee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
ee ee ee ee a ee ee a ed ed 
SENN NA AA AAA AA AA WN BB BE EE EAN nununununn 


MEW 30 ODN UE WN 0 ODNOAUE WN (OOO NOA UE WN 0 OOO UE WIN O OONOUE WOO 


PRoMoPonononoRoNONONONONORGPONONDS 2 9 tt 9 tS SS Ss SS 
= 


410 
411 
412 
413 
ate 
415 
416 
417 
418 
419 
420 


IF ( NOT .CCB CLUBSV_IO_ACTIVE]) THEN LIBSSTOP (OTS$_INTDATCOR); 


020° 


Se Se ee Se Ge Ge Se Se Se Ge Ge SH Ss oe 


; Routine Size: 


Pat et at et et et et ee ee et et ek ee 


WANA wn 


VEWN OO OONOUSWN 


436 


od ee wt = = ws 8 
— oe es ww = 
OWWOWWDWODWDODOWOOyNN NS 
SOO NOU SW -OOONO 


130% 99:08:99 VAX=11 AE -32 V4.0-742 
1984 11:54:44 DISKSVMSMASTER: CBASRTL. SRCIJBASCB. 832:1 


“2 
3 


Bek current LUB/ISB/RAB and restore previous LUB/ISB/RAB to OTS$$A_CUR_LUB 
: _ OW storage table indexed by logical unit number. 


OTSS$SPOP_CCB (); 


s¢ 
iif register CCB is set to 0, the LUB was deallocated. In that case, the 
# LUN no Longer has an owner. 


IF (.CCB EQLA 0) THEN OTSS$$V_LUN_OWNR C.LOGICAL_UNIT = LUBSK_ILUN_MIN, OTSS$$V_OWNR_BAS] = 0 ELSE CCB = 


RETURN; 
END; ! End of BASS$CB_POP routine 
7E C6 AB 32 00000 BAS$$CB_POP:: 
CVTWL aes a LOGICAL_UNIT 3 
OD FC =—AB 01 £0 00004 BBS #1, -4(C r 
00000000G 8F DD 00009 PUSHL #otss INTDATCOR 3 
000000006 00 01 FB OOOOF CALLS #1, LIBSSTOP : 
00000000G 00 16 00016 1$: JSB OTsS$POP ccB : 
5B D5 OO00IC TSTL CCB : 
OD 12 OQOOIE BNEQ 2s : 
50 6— DO 00020 MOVL Lgeicm, UNIT, RO : 
0000000060040 02 8A 00023 BICB2 , OTSS$V_ LUN_ OWNR+8CROJ : 
02 11 00028 BRB 35° : 
5B D4 0002D 2%: CLRL CCB : 
5E 04 CO O002F 3$: ADDL2 #4, SP : 
05 00032 RSB : 


51 bytes, Routine Base: _BASSCODE + 008D 


1191 


1 


0 


; 1190 


Bi Oe Oe Oe Be Be Be Se Be Se Se Be Oe Oe Be Oe Bs Oe Bs Se Oe Se Se Se Se Se Oe Ge Se Oe Se Ss Se Os Oe Os Os Ss Oe Se Se Se Oe Se ees oe 


-@ 


; Routine Size: 


COOOCOCCOOOOOOOO 


bey et pet aN gt Sa tle Nate a ns wDeO Sees. 
BDNOUE WN $0 OD NA UE WN 0 ODNOA UE WN OOD NOU EWN OO ODNOU Fw 


ma a a ed a ts a dw = = a 2 2 ss a 1 ss 


POPIPIPNYININGNININININYNINYININININNYANININININIPIPINPINPININYNPINYININININYNYDY 2 OO 
PIII IIA at at st nt a kk kk kk kk kk a tk kt at tt tt 


AG 


8 bytes, 


os 
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14-Sep-1984 11:54:44 DISKSVMSMASTER: CBASRTL.SRCIJBASCB.B32:1 (5) 
GLOBAL ROUTINE BAS$$CB_GET ! GET current LUB/ISB/RAB = called only from non-shared code 


JSB_CB_GET NOVALOE = 


++ 


FUNCTIONAL DESCRIPTION: 


BASSSCB_GET gets the curents LUB/ISB/RAB. 

This routine is only called from non-shared procedures which 

can't access OTSS$A_CUR_LUB directly. (Entry vectors for 

data would mean that thé code would have to change when the 
decision to make a module shared or non-shared is changed. 

Unless the LINKER got smarter and changed the level of indirection 
on data references which were vectored.) 


: CALLING SEQUENCE: 


JSB FORSSCB_GET () 
FORMAL PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

OTSS$$A_CUR_LUB Adr. of current LUB/ISB/RAB 
IMPLICIT OUTPUTS: 

ccB Set to adr. of current LUB/ISB/RAB. 
RETURN VALUE: 

NONE 
SIDE EFFECTS: 

NONE 


BEGIN 


EXTERNAL REGISTER 
CCB : REF BLOCK C, BYTE); 


CCB = .OTS$$A_CUR_LUB; 


RETURN 
END; ! End of BASSS$CB_GET routine 


58 000000006 00 00 00000 BASS$CB_GET:: 
MOVL OTS$$A_CUR_LUB, CCB : 123 
05 00007 RSB 3 Tes 


Routine Base: _BAS$CODE + 00C0 


1 
5 


a 
te ( 


P 


Bliss-32 V4.0-742 


VAX-11 
DISKSVMSMASTER 


Be PT: Sei4e 


“19 
19 


4 1 
16-Sep 
14-Sep- 


E50" 


: CBASRTL.SRCIJBASCB.B32; 


1 


1239 


K 1 
BASS$$(B 16-Sep-1984 00:04:00 VAX-11 Bliss-32 V4.0-742 Page 13 
eit 14-Sep-1984 90: 90:00 DISKSVMSMASTER:CBASRTL. SRCIBASCB.B32:1~ (6) 
487 1240 1 GLOBAL ROUTINE BASSSNEXT_LUN ( ! Get next LUN which might be open 
oss ge) to ELC, | Fleststine ang lasestine flag” 
! n r 
oy : “8 : ) : NOVALUE = eit aoe 
49 12645 1 !4¢ 
63? ! : : FUNCTIONAL DESCRIPTION: 
495 12468 1: BASSSNEXT_LUN gets a LUN which might be open. It is used by 
496 12469 1! the exit handler declared by BASIC OPEN, which must Look 
497 1250 1! through all the LUNs and do the DELETE or PRINT ge by 
498 1251 1! calling CLOSE. (RMS close won't do DELETE or PRINT handling.) 
499 1 26 | is routine scans the table of LUB pointers and returns those 
500 1255 1! which are non-zero. The caller must use CB_PUSH and CB_POP 
rf : 2 : } to obtain control of the LUB. 
508 26 i CALLING SEQUENCE: 
205 1333 : CALL BASS$SNEXT_LUN (FLAG, LUN) 
207 1260 ! FORMAL PARAMETERS: 
509 1262 1! FLAG.mv.r If 0 on entry, this is the first call 
510 1563 > and LUN is inval id. If 1 on entry, LUN 
511 1264 1! ‘is the Last LUN processed. Oniexit, 0 
21g 1265 1! means that there are no more LUNs, and 1 
51 1266 1! means that LUN contains the Logical Unit 
514 1267 1! Number to process. , 
212 1588 ; LUN.ml.r Logical Unit Number, as described above. 
17 1270 : IMPLICIT INPUTS: 
235 1576 : . OTS$$V_LUN_OWNR Table of LUN owners 
3¢1 1976 : IMPLICIT OUTPUTS: 
523 1276 1! NONE 
524 1277 1! 
ae a 1278 1 ' COMPLETION CODES: 
258 144 ; : RETURN VALUE: 
528 1281 1} NONE 
94 1 Ht 1! 
239 1$e7 : : SIDE EFFECTS: 
332 1285 1! NONE 
53 1286 1 !-- 
RE 
336 iss $1. OM 
23h isay : af sats is the first entry, arrange \to return the first logical 
' unit. 
$39 1393 By 
540 129 
ee) : 3e If ( NOT ..FLAG) 
543 1296 BEGIN 


As$tce 16-Sep-1984 00:04:00  VAX=11_BLiss-32_v4.0-742 Page 14 
#820 VexSep-1984 11:56:44 DISKSVMSMASTERSCBASRTL-SRCIBASCB.B32;1°" (6) 


44 1297 (.FLAG)<O, 1> = 1; 
45 1 38 .LUN = LUBSK_ILUN_MIN; 
4 129 E 
4 1500 ELSE 
48 1301 BEGIN 
50 130 
551 1304 4 IF (..LUN GTR LUBSK_LUN_MAX) 
226 1305 3 THEN 
5 1 06 4 BEGIN 
554 1307 4 (.FLAG)<O, 1> = 0; 
222 1 4 4 RETURN; 
529 1309 END; 
55 1310 
558 1311 END; 
559 1 \¢ 
560 131 1 
561 1314 ! Now that LUN is valid, search the table of LUBs for one which is 
206 : 1? allocated. The caller is obliged to check to see if it is open. 
564 1317 
26° ! 18 UNTIL (.OTS$$V_LUN_OWNR [..LUN = LUBSK_ILUN_MIN, OTSSS$V_OWNR_BASJ) DO 
5@ 1 
567 1320 ! we wish to skip over this LUB, but we have to return with FLAG false 
568 1321 ! if we have exhausted the table. 
569 1356 te 
570 132 
§71 1324 IF (..LUN EQL LUBSK_LUN_MAX) 
278 1325 ; THEN 
57 1326 BEGIN 
574 1327 (.FLAG)<O, 1> = 0; 
575 1328 RETURN; 
576 1329 END 
577 1330 ELSE 
578 1331 ~-LUN = ..LUN + 1; 
579 1336 
580 133 '¢ ; ; 
581 1334 ! Since we have fallen out of the UNTIL without returning, we must have 
o8¢ 1335 2! a good LUN. Return it. 
58 1336 § te 
584 1337 RETURN; 
585 1338 #1 END; ! End of BASSSNEXT_LUN routine 


0000 00000 -ENTRY BASSSNEXT_LUN, Save nothing : 1240 

51 AC D9 00002 MOVL LUN, R > 1298 
09 04 BC E 00006 aFLAG, 1$ + 1294. 

04 BC 01 88 OO00A BISB2 #1, afLAG : 1297 

61 08 CE 0000E MNEGL #8, ( : 1298 

0B 11 00011 BRB 2$ + 1294 

61 06 00013 1$ INCL  (R1) > 1302 

00000077 —s 8F 61 D1 00015 CMPL (R11), #119 > 1304 

18 14 0001C BGTR ; 
50 000000006 00 9E OOD1E 28: MOVAB OTSS$$V_LUN_OWNR, RO > 1318 


BAS$$(B 16-Sep-1984 4:00 VAX-11 Bliss-32 V4.0-742 
met 18-Sep-1984 99: Mf: 744 DISKSVMSMASTER: (BA rt et SRCIBASCB. B32. 79 
5 1 ¢O 00 ADDL2 (R11), R 
12 20 61 £0 $058 BBS # &cRO) 5$ 
00000099 ae 1 D 02D cMPLSesé«CRAYD,, «#119 
5 12 000 BNEQ 4$ 
06 «BC 1 Bh 036 3$: BICB2 #1, @FLAG 
4 QOOSA RET 
61 99 038 4$: INCL (R1) 
DF 11 0003D BRB 2$ 
04 OO03F 5$: RET 

; Routine Size: 64 bytes, Routine Base: _BASSCODE + 00C8 

286 1339 (1 

ry 1341 40 \ END 'End of module BAS$$CB 

re) 
589 1302 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 

_BASSCODE 264 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
5 Library Statistics 
Barve ne on, Dae ae Venn bec SE, |S eee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
; _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 2 0 581 00:01.1 
; COMMAND QUALIFIERS 

BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:BASCB/OBJ=O0BJ$:BASCB MSRC$:BASCB/UPDATE=(ENH$:BASCB) 
Size: 264 code + 0 data bytes 
Run Time: 5 


Elapsed Time: 005§3° 9 
Lines/CPU Min: 
Lexemes/CPU-Min: 28611 
qenery Used: 106 pages 
Compilation Complete 
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